Private Function CalcSalesTax(ByVal Price As Double) As Double
  ' Cel: Ta funkcja oblicza podatek naleny
  '      od sprzeday pewnego przedmiotu.
  '
  ' Argumenty:
  '  Price   Cena sprzeday przedmiotu
  '  SalesTax Kwota nalenego podatku
  '
  '
  ' Zwracana warto:
  '  double  kwota podatku nalenego od sprzeday

  ' Uwaga: W obliczeniach wykorzystywana jest staa symboliczna
  '     SalesTaxRate, w ktrej zapisana jest aktualna
  '     stawka podatku.

  CalcSalesTax = Price * SalesTaxRate
End Function
